home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 84 / 084.d81 / walt's 3 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  77 lines
  1. 1 poke55,0:poke56,64:clr:a$="":poke53281,0:poke53280,0
  2. 2 dv=peek(186):ifdv<8thendv=8
  3. 3 gosub60000:rem goto7
  4. 4 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  5. 5 sys57812"input any.o",dv,0:poke780,0:poke781,60:poke782,3:sys65493
  6. 6 ip=828:un=51456:hg=51459
  7. 7 gosub1000
  8. 8 cl$="                                      "
  9. 12 dimg$(500)
  10. 27 p=1:pt=0:e=1
  11. 28 rem goto100
  12. 30 open3,dv,3,"t.walt iii"
  13. 32 fori=0to1
  14. 35 sys828,3,40:h=h+1:i=st
  15. 37 g$(pt*19+h)=a$:ifh=19thenpt=pt+1:h=0
  16. 38 next:close3:pt=pt+1
  17. 40 syshg
  18. 100 poke53281,9:poke53280,9:print"[147]   [215][193][204][212]'[211] [215][207][210][203][211][200][207][208] [201][201][201]"tab(31)"[150] of"pt
  19. 101 print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  20. 102 fori=1to20:print"[221]"spc(38)"[221]";:next
  21. 103 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  22. 104 fori=217to242:pokei,peek(i)or128:next
  23. 105 poke214,22:print:print"[150]  ([206][150])ext  ([208][150])revious  ([198][150])irst  ([204][150])ast"
  24. 106 print"  (1[150]) through (7[150]) for picture  ([209][150])uit[158]"
  25. 108 print""tab(28)"   [157][157][157]"p"[158]"
  26. 110 forj=etoe+19
  27. 120 print""g$(j)
  28. 130 next
  29. 150 geta$:ifa$=""then150
  30. 160 ifa$>="1"anda$<="7"then200
  31. 165 ifa$=""ora$="n"thenifp<ptthenp=p+1:e=e+19:goto195
  32. 170 ifa$="[145]"ora$="p"thenifp>1thenp=p-1:e=e-19:goto195
  33. 175 ifa$="[157]"ora$="f"thene=1:p=1:goto195
  34. 180 ifa$=""ora$="l"thene=(pt-1)*19+1:p=pt:goto195
  35. 185 ifa$="q"then400
  36. 190 goto150
  37. 195 print"[145][145]":fork=1to20:printcl$"[145][145]":next:goto108
  38. 200 ifa$=d$then250
  39. 210 d$=a$
  40. 220 print:printcl$:printcl$"[145][145][145]"
  41. 230 sys57812chr$(asc(a$)+16),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  42. 250 poke251,64:poke252,224
  43. 260 poke253,204
  44. 270 print"[147]";:sysun:syshg:poke53280,0
  45. 280 poke198,0
  46. 290 geta$:ifa$=""then290
  47. 295 syshg:goto100
  48. 299 goto299
  49. 400 poke214,22:print:printcl$:printcl$"[145][145]"
  50. 405 print"        [209]uit[150] to [204][207][193][196][211][212][193][210]? (y[150]/n[150])"
  51. 410 geta$:ifa$<>"y"anda$<>"n"then410
  52. 420 ifa$="n"then105
  53. 430 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  54. 440 ifer%<>63thenprint"[147]":end
  55. 445 poke646,peek(53281)
  56. 450 print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  57. 460 print"run"
  58. 470 poke631,13:poke632,13:poke198,2:end
  59. 1000 sys57812"logo",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  60. 1010 poke251,64:poke252,224
  61. 1020 poke253,204
  62. 1030 print"[147]";:sysun:syshg:poke53280,0
  63. 1050 return
  64. 10000 open15,8,15,"s0:walt's 3":close15:save"walt's 3",8:end
  65. 60000 print"[147][129]         [193]n [150][207]uthouse [129][208]roduction"
  66. 60005 b9$="                                      "
  67. 60010 poke214,14:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  68. 60020 fori=0to7:printb9$:next:print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  69. 60030 b9$(0)="[215][193][204][212]'[211] [215][207][210][203][211][200][207][208] [201][201][201]"
  70. 60040 b9$(1)="by [215]alt [200]arned"
  71. 60050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
  72. 60060 b9$(3)="[208]ublished on [204][207][193][196][211][212][193][210] #84"
  73. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  74. 60080 b9$(5)="[193]ll [210]ights [210]eserved"
  75. 60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  76. 60099 return
  77.